home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / v cisle / pcwkillall / pcwKillEmAll.exe / Tools / pcwKillMovieMaker.vbs < prev    next >
Encoding:
Text File  |  2006-09-18  |  6.9 KB  |  155 lines
  1. Set MyShell = CreateObject("Wscript.Shell")
  2. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  3. Set umgebung=MyShell.Environment("PROCESS")
  4. On Error Resume Next
  5. windir=umgebung("windir")
  6. userprofile=umgebung("userprofile")
  7.  
  8. NT = MyShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
  9. Programs = MyShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
  10. dllcache = MyShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\SFCDllCacheDir")
  11.  
  12. if not NT = "" Then
  13.     ret = MsgBox("Pro ·plnΘ odstran∞nφ Movie Makeru musφte mφt p°φstup ke Konzole pro zotavenφ. " &_
  14.     "P°ipravte si instalaΦnφ CD Windows a v Φlßnku si p°eΦt∞te, jak postupovat a jak si Konzolu pro zotavenφ pozd∞ji spustit. " & vbcr &_
  15.     "Mß se nynφ pokraΦovat?", vbYesNo+vbInformation, "Odstran∞nφ Movie Makeru")
  16.     If Ret = vbNo Then wscript.quit
  17. Else
  18.     ret = MsgBox("Mß se nynφ Movie Maker odstranit?", vbYesNo+vbInformation, "Odstranit Movie Maker")
  19.     If Ret = vbNo Then wscript.quit
  20. End if
  21.  
  22. loesch = Myfiles.Deletefolder(Programs & "\Movie Maker\MUI", True)
  23. loesch = Myfiles.Deletefolder(Programs & "\Movie Maker\TOUR", True)
  24.  
  25. If dllcache = "" Then
  26.     dllcache = windir & "\System32\dllcache"
  27. End If
  28. If Right(dllcache, 1) = "\" Then dllcache = Mid(dllcache, 1, Len(dllcache)-1)
  29.  
  30. Set Killer = MyFiles.OpenTextFile(windir & "\pcwKmm.BAT", 2, True)
  31. If not NT="" Then
  32.     Killer.Writeline "Set AllowAllPaths = True"
  33. End If
  34. If (myfiles.FileExists(dllcache & "\MOVIEMK.EXE")) Then
  35.     Killer.Writeline "del " & chr(34) & dllcache & "\MOVIEMK.EXE" & chr(34)
  36. End If
  37. if (myfiles.FileExists(dllcache & "\WMMFILT.DLL")) Then
  38.     Killer.Writeline "del " & chr(34) & dllcache & "\WMMFILT.DLL" & chr(34)
  39. End If
  40. if (myfiles.FileExists(dllcache & "\WMMRES.DLL")) Then
  41.     Killer.Writeline "del " & chr(34) & dllcache & "\WMMRES.DLL" & chr(34)
  42. End If
  43. if (myfiles.FileExists(dllcache & "\WMMUTIL.DLL")) Then
  44.     Killer.Writeline "del " & chr(34) & dllcache & "\WMMUTIL.DLL" & chr(34)
  45. End If
  46. If (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\MOVIEMK.EXE")) Then
  47.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\MOVIEMK.EXE" & chr(34)
  48. End If
  49. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMMFILT.DLL")) Then
  50.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMMFILT.DLL" & chr(34)
  51. End If
  52. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMMRES.DLL")) Then
  53.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMMRES.DLL" & chr(34)
  54. End If
  55. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMMUTIL.DLL")) Then
  56.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMMUTIL.DLL" & chr(34)
  57. End If
  58. If (myfiles.FileExists(userprofile & "\Nabφdka Start\Programy\P°φsluÜenstvφ\Windows Movie Maker.LNK")) Then
  59.     loesch = Myfiles.Deletefile(userprofile & "\Nabφdka Start\Programy\P°φsluÜenstvφ\Windows Movie Maker.LNK", True)
  60. End If
  61. If (myfiles.FileExists(windir & "\Nabφdka Start\Programy\P°φsluÜenstvφ\Windows Movie Maker.LNK")) Then
  62.     loesch = Myfiles.Deletefile(windir & "\Nabφdka Start\Programy\P°φsluÜenstvφ\Windows Movie Maker.LNK", True)
  63. End If
  64.  
  65. hardfolder = Programs & "\Movie Maker"
  66. Set festverz = myfiles.GetFolder(hardfolder)
  67. Set Subfolder = festverz.Subfolders
  68. For Each folder in Subfolder
  69.     Set Currentfolder = Myfiles.GetFolder(festverz & "\" & folder.name)
  70.     Set ffiles = Currentfolder.Files
  71.     ords = Currentfolder.ShortPath
  72.     For Each file in ffiles
  73.         If NT = "" Then
  74.             Killer.Writeline "del " & chr(34) & ords & "\" & file.Shortname & Chr(34)
  75.             
  76.         Else
  77.             Killer.Writeline "del " & chr(34) & Currentfolder & "\" & file.name & Chr(34)
  78.         End If
  79.     Next
  80.     If (myfiles.FolderExists(programs & "/Movie Maker")) Then
  81.         If NT="" Then
  82.             Killer.Writeline "rd " & chr(34) & ords & chr(34)
  83.         Else
  84.             Killer.Writeline "rd " & chr(34) & Currentfolder & mm & chr(34)
  85.         End If
  86.     End If
  87. Next
  88. Set ffiles = festverz.Files
  89. For Each file in ffiles
  90.         If NT = "" Then
  91.             ords = festverz.ShortPath
  92.             Killer.Writeline "del " & chr(34) & ords & "\" & file.Shortname & Chr(34)
  93.         Else
  94.             Killer.Writeline "del " & chr(34) & festverz & "\" & file.name & Chr(34)
  95.         End if
  96. Next
  97. If (myfiles.FolderExists(programs & "\Movie Maker")) Then
  98.     If NT="" Then
  99.         Killer.Writeline "rd " & chr(34) & ords & chr(34)
  100.     Else
  101.         Killer.Writeline "rd " & chr(34) & programs & "\Movie Maker" & chr(34)
  102.     End If
  103. End If
  104.  
  105. Killer.close
  106.  
  107. Set Killer = MyFiles.OpenTextFile(windir & "\pcwKmm.BAT", 1, False)
  108. Do While Not Killer.AtEndOfStream
  109.      Zeile = Killer.ReadLine
  110.      Nummer = Killer.Line-1
  111. Loop
  112. Killer.close
  113.  
  114. Set RegKill = MyFiles.OpenTextFile(windir & "\pcwRk.REG", 2, True)
  115. RegKill.Writeline "REGEDIT4"
  116. RegKill.Writeline ""
  117. RegKill.Writeline "[-HKEY_CLASSES_ROOT\.MSWMM]"
  118. RegKill.Writeline ""
  119. RegKill.Writeline "[-HKEY_CLASSES_ROOT\Windows.Movie.Maker]"
  120. RegKill.Writeline ""
  121. RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.MSWMM]"
  122. RegKill.Writeline ""
  123. RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Windows.Movie.Maker]"
  124. RegKill.Writeline ""
  125. RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\OptionalComponents\Moviemk]"
  126. RegKill.Writeline ""
  127. RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Applications\moviemk.exe]"
  128. RegKill.Writeline ""
  129. RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\moviemk.exe]"
  130. RegKill.Writeline ""
  131. RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\DeviceClasses\{CC7BFB41-F175-11D1-A392-00E0291F3959}]"
  132. RegKill.Writeline ""
  133. RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\DeviceHandlers\VideoCameraDeviceHandler]"
  134. RegKill.Writeline ""
  135. RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlers\VideoCameraArrival]"
  136. RegKill.Writeline ""
  137. RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\Handlers\MSVideoCameraArrival]"
  138. RegKill.Writeline ""
  139. RegKill.Writeline "[-HKEY_CURRENT_USER\Software\Microsoft\MovieMaker]"
  140. RegKill.Writeline ""
  141. RegKill.Close
  142.  
  143. Einlesen=MyShell.Run("regedit.exe /s " & windir & "\pcwRk.REG", 0, True)
  144. loesch = Myfiles.Deletefile(windir & "\pcwRk.REG", True)
  145.  
  146. If NT = "" Then
  147.     Wo = "im DOS-Modus"
  148.     loesch = Myfiles.Deletefolder(windir & "\Anwendungsdaten\Microsoft\Movie Maker", True)
  149. Else
  150.     loesch = Myfiles.Deletefolder(userprofile & "\Data aplikacφ\Microsoft\Movie Maker", True)
  151.     MyShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Setup\RecoveryConsole\SetCommand", 1, "REG_DWORD"
  152.     Wo = "v Konzole pro zotavenφ"
  153. End If
  154.  
  155. Ende = MsgBox("Restartujte poΦφtaΦ " & Wo & " a spus¥te dßvkov² soubor " & windir & "\pcwKmm.BAT , kter² odstranφ zbylΘ " & Nummer & " soubory Movie Makeru.", 64, "Skript PC WORLDu pro odstran∞nφ Movie Makeru: Hotovo")